proc get_square (win : int, dotcolour : int)
    Window.Select (win)
    % procedure to make the user click a square, and get the mouse location
    var btnNumber, btnUpDown : int % declare useless variables that aren't used
    Mouse.ButtonWait ("down", mousex, mousey, btnNumber, btnUpDown) % Wait for mouse click
    Window.Select (OutWin)
    mousetogrid % turn mouse location into grid location so that we can draw a circle
    Window.Select (win)
    Window.Select (OutWin)
end get_square
